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Subroutine MESSAGE_HANDLING (Lun) 
Version: *v04-000" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 8 
ONLY IN ACCORDANCE WIT H 
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INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
seokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Modified By: 


v03-001 SARO084 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 
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C 
: Required files. 


33 


Include ‘src$:msghdr.for /nolist' 
Include ‘src$:ssmessage.for /nolist' 


Byte Lun 

Call the ‘header’ routine to output the first two Lines of the 
header portion of the report. 

Call HEADER (Lun) 
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DNAS ELE ESE 


Determine if this is a ‘$snderr messepe ‘operator message. or 
a ‘network Bessege entry. Call the ‘logger’ routine with the 
appropriate heading to output for the header portion of the report. 


If (EMBSW_HD_ENTRY .EQ. '27'°X) Then ! $Snderr message 
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MESSAGE _NANOLING ifoseoct gee 90: BHs 


Call LOGGER (Lun,"SSNDERR MESSAGE") 


Else if (EMBSW_HD ENTRY .£0. '29°X) Th ; 
Ealt LOGGER Clin, "OPERATOR MESSAGE?) Operator message 


Else if (EMBSW_HD_ENTRY .EQ. ‘2A’ 8 Then ! Network message 
eet LOGGER (Lin, "NETWORK MESSAGE) 


Call the ‘Linchk® routine to count the number of Lines output. 
Output the message text header. 


Call LINCHK (LUN,3) 
Write (Lun, 2605) 
Format(/* MESSAGE TEXT’,/) 


eure that there really was a message included, and output 


If (e su. SS_MSGSZ .NE. 0) T 
o 2615,1-= 0, (EMBSW_SS _MSGS7756) 


J = 1#56 

Call LINCHK (Lun,1) 

vis, in ee ere 10) EMBST_SS_MSGTXT(MAX(1,J): 
ini _SS-MSGSZ = J))) 

horaent® 

Cont inue 

Else 

Indicate that no message was actually in the entry. 

Call LINCHK (lun,1) 

Write (lun, °¢ 20) 

Format(' . CNONE)") 

Endif 


Return 
End ! Module 
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MESSAGE _HANDLING 


PROGRAM SECTIONS 


Total Space ALL 


ENTRY POINTS 


Address Type 
0-00000000 
VARIABLES 
Address Type 
I* 
SSE 
I* 
ARRAYS 
Address Type 
S-pon00008 | ea 
124 
LABELS 


Address Label 
1-00000039 2605' 


Type Name 
HEADER 


Bytes 
i 

ocated 1013 
Name 
MESSAGE _HANDLING 
Name 
EMBSL_HD_SID 
EMBSW_HD_ENTRY 
sree Fs eee 
Name Bytes 
EMB a8 
EMBSOQ_HD_TIME 


Address Label 
1-0000004D 2610' 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
LINCHK 


Attributes 
PIC CON net LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Address Type Name 
~00000012 CHAR EMBST_SS_MSGTXT 
4494's sf EMBSW_HD_ERRSEQ 
-0000000 I 
AP-00000004a ist LUN 
Dimensions 
(0:511) 
(3) 


Address Label Address Label 
ee 2615 1-00000054 2620° 


Type Name 
LOGGER 
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COMMAND QUALIFIERS 
FORTRAN /LIS=LISS$:MESSAGE/OBJ=0BJ$:MESSAGE MSRCS$:MESSAGE 
k= (WOBOUNDS NOUNDERF LOW) 
ie NOs at SL 
ST ANDARD= NOS YNTAX,NO 
/suowe NOPREPROCESSOR SYNE Ob 
/#77 / NOG. NG 714 /OPT me ie /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


un Time )-8} seconds 
Elapsed. Tine: seconds 
Page Faults 
Dynamic Henory: 171 pages 
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